0 PRINT"[147]"
1 IFA=.THENA=1:LOAD"WORM.SPR",8,1
2 IFA=1THENA=2:LOAD"WORM.ML",8,1
5 GOTO100
10 LX=PEEK(V+21):IFLV=LXTHENRETURN
20 SYS65418:POKES+4,16
30 POKES+24,15:POKES+6,240:POKES+4,17
40 FORZA=1TO30:FORZX=100TO50STEP-25
50 POKES+1,20-ZA+ZX:NEXT:NEXT:POKES+4,16:SYS49365:RETURN
100 POKE53280,0:POKE53281,15:PRINT"[147]";
110 V=53248:DN=15:X=198:B=15:C=0:S=54272:KL=70:LV=255
150 FORA=S TO S+24:POKEA,0 :NEXTA:POKES+24,15
160 POKES,55:POKES+1,KL:POKES+6,128
200 T$="[180][144] SCORE= 00     [170]     [180][144] TIME= 00       [170]"
205 T$=T$+"[180][156]WORM [170][184][184][184][184][184][184][184][184][184][184]     [184][184][184][184][184][184][184][184][184][184][184][180][156]XING [170]"
210 T$=T$+"[184][184][184][184][184][184][184]                          [184][184][184][184][184][184][184]"
215 B$="      [176][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192]"
220 B$=B$+"      [221]   [221]    [221]    [221]    [221]    [221]    [221]"
300 PRINTT$;"";B$;
450 FORY=55416 TO 56175:POKEY,2:NEXTY
460 FORA=1144 TO 1899 STEP(DN+4):FORY=1 TO 4:POKEY+A,81:NEXTY:NEXTA
500 GOSUB8000:POKE1020,0:SYS49365
550 IFPEEK(1020)>0THENPOKEV+21,PEEK(V+21)AND254:GOSUB5000
560 X=X-1:IFX=191THENX=197
561 POKES+4,17:KL=KL-10:POKES+1,KL:IFKL<15THEN:KL=70
565 FORY=2040 TO 2047:POKEY,X:NEXTY
570 IFPEEK(V+21)=0THEN15000
580 C=C+1:PRINT"[144]       [157][157][157][157][157][157][157]";C;
585 IFC<>999999THEN600
590 PRINT"[144]       [157][157][157][157][157][157][157]";:Q=INT(Q-(C/100)):IFQ<0THENQ=0
595 C=0:PRINTQ;
600 Z=INT((RND(1)*37)+1):G=(Z/2):H=(INT(Z/2)):IFG<>HTHENZ=Z-1
610 POKE251,A(Z):POKE252,A(Z+1)
700 T=INT(RND(1)*2)+1:IFT=1THENSYS49152:GOTO1000
710 SYS49185
1000 GOSUB10:LV=PEEK(V+21):GETA$:IFA$<>"Q"THEN550
1005 PRINT"[147]":POKEV+21,0:POKES+4,16
1010 GOTO15000
5000 Q=Q+B:PRINT"       [157][157][157][157][157][157][157]";Q;:POKEV,47:POKEV+1,229:B=B+15
5005 POKEV+21,PEEK(V+21)OR1:
5010 POKES+4,16:FORA=1144 TO 1903:POKEA,32:NEXTA:
5015 DN=DN-1:IFDN<=2THENDN=3:B=B-15
5020 FORA=1144 TO 1899 STEP(DN+4):FORY=1 TO 4:POKEY+A,81:NEXTY:NEXTA
5100 POKE1020,0:POKES+4,17:RETURN
8000 FORY=1TO15STEP2:POKEV+Y,229:NEXTY:POKEV,47:POKEV+2,90:POKEV+4,126
8020 POKEV+6,165:POKEV+8,203:POKEV+10,244:POKEV+12,29:POKEV+14,66
8025 POKEV+16,192
8030 FORY=2040TO2047:POKEY,192:NEXTY:POKEV+39,0:FORY=40TO46
8035 POKEV+Y,6:NEXTY
8040 POKEV+21,255
9000 DIM A(37):FORY=0 TO 37:READA(Y):NEXTY
9999 Y=PEEK(V+31):RETURN
10110 DATA 120,4,160,4,200,4,240,4,24,5,64,5,104,5,144,5,184,5,224,5,8,6
10120 DATA 48,6,88,6,128,6,168,6,208,6,248,6,32,7,72,7
15000 POKES+4,16:PRINT"[147]TIME=";C:PRINT"SCORE=";Q
15005 PRINT"FINAL SCORE= (SCORE-(TIME / 100))"
15010 PRINT"FINAL SCORE=";:Q=INT(Q-(C/100)):IFQ<0THENQ=0
15015 PRINTQ
15050 PRINT"PRESS SPACE BAR TO PLAY AGAIN."
15055 PRINT"             [144]PRESS Q TO QUIT."
15060 PRINT"WORM XING":POKE198,.:PRINT""
16000 A=PEEK(203):IFA<>62ANDA<>60THEN16000
16010 IFA=60THENRUN100
16012 PRINT"  ARE YOU SURE YOU WANT TO QUIT? (Y/N)"
16014 A=PEEK(203):IFA<>25ANDA<>39THEN16014
16015 IFA=39THENPRINT"[145]                                      [145][145]":GOTO15055
16020 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
16030 IFER<>63THENEND
16040 SYS65418:LOAD"HELLO CONNECT",8